home *** CD-ROM | disk | FTP | other *** search
/ Aminet 3 / Aminet 3 - July 1994.iso / Aminet / dev / lang / struct100.lha / Struct1.0 / SpeedTests / Test7.struct < prev    next >
Encoding:
Text File  |  1993-08-22  |  210 b   |  18 lines
  1. define procedure dendybar
  2. set startup dendybar
  3.  
  4. procedure dendybar
  5. local z:long,a:long,b:long
  6. data register z,a,b
  7. regload
  8. a=0
  9. b=0
  10. for z=1;8000000
  11. if 300-97+b>300-97+a
  12. a=a+1
  13. else
  14. b=b+1
  15. end if
  16. next
  17. end procedure
  18.